home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_06_(08-1984).d64 / snake escape (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  138 lines
  1. 1 REM:** COMPUTE GAZETTE **
  2. 2 REM:** SNAKE ESCAPE **
  3. 5 GOTO100
  4. 10 POKE54296,15:POKE54277,17:POKE54278,17
  5. 15 POKE54276,17:POKE54273,28:POKE54272,49
  6. 20 POKE54276,0:POKE54273,28:POKE54272,0
  7. 30 RETURN
  8. 100 SO=0:SR=3
  9. 110 GOSUB30000:GOSUB29000
  10. 120 PRINT"[147]"
  11. 130 GOSUB28000:GOSUB8000:GOSUB9000:GOSUB28000
  12. 140 TI$="000000"
  13. 150 CL=INT(RND(1)*7)+1:IFCL=5ORCL=3THEN150
  14. 160 IFTI$=L$THENGOSUB7000:GOTO130
  15. 170 IFDH=0THENPOKEB,HC
  16. 180 POKEB,HC:POKECO,CL
  17. 190 K=PEEK(197)
  18. 200 IFK=42THENDR=-1:GOTO250:REM:**LEFT**
  19. 210 IFK=17THENDR=1:GOTO250:REM:**RIGHT**
  20. 220 IFK=30THENDR=-40:GOTO250:REM:**UP**
  21. 230 IFK=18THENDR=40:GOTO250:REM:**DOWN**
  22. 240 GOTO160
  23. 250 POKEB,BC:B=B+DR:CO=CO+DR:SO=SO+1
  24. 260 IFPEEK(B)=88THENDH=0:GOTO9500
  25. 270 IFPEEK(B)=160THENGOSUB5000:GOTO120
  26. 280 IFPEEK(B)=81THENGOTO9500
  27. 300 IFB<1024ORB>2023THENB=B-DR:CO=CO-DR
  28. 310 GOSUB10:GOTO150
  29. 4000 REM:**PRINT INSTRUCTIONS**
  30. 4010 PRINT"[147]YOUR GOAL IS TO MOVE THE SNAKE OUT OF THE  POISON PATCH."
  31. 4020 PRINT"TRY TO AVOID ALL POISON ([144][216][159])."
  32. 4030 PRINT"CONTROLS:":PRINT"[156] L=LEFT":PRINT" R=RIGHT"
  33. 4040 PRINT"[159] U=UP":PRINT" D=DOWN"
  34. 4050 PRINT"POINT VALUES:"
  35. 4060 PRINT"BODY SEGMENT=1[146] POINT"
  36. 4070 PRINT"YOU WILL RECEIVE A BONUS FOR ESCAPING."
  37. 4080 PRINT"[156]HIT A KEY TO START "
  38. 4090 GETA$:IFA$=""THEN4090
  39. 4100 RETURN
  40. 5000 VB=0:POKE53280,3:POKE53281,1
  41. 5010 IFS=1THENVB=20
  42. 5020 IFS=2THENVB=30
  43. 5030 IFS=3THENVB=40
  44. 5035 IFS=4THENVB=50
  45. 5040 BN=FNSC(VB)
  46. 5050 PRINT"[147]...YOU HAVE ESCAPED!!!"
  47. 5060 SO=SO+BN
  48. 5070 PRINT"BONUS[146]:"BN"[146]"
  49. 5080 PRINT"[156]SCORE[146]:"SO
  50. 5090 PRINT""SR"SNAKES REMAINING"
  51. 5100 POKE54296,15:POKE54277,83:POKE54278,50
  52. 5102 FORHI=33TO57STEP2:LO=INT(RND(0)*50)+180
  53. 5103 POKE54276,17:FORJ=1TO60:NEXTJ:POKE54273,HI:POKE54272,LO:NEXT
  54. 5106 FORT=1TO200:NEXT:POKE54276,0:POKE54273,0:POKE54272,0
  55. 5120 DH=2:RETURN
  56. 6000 PRINT"[147][214][214][214][214][214][214][214][214][214][214][214][214]"
  57. 6003 PRINT"[214][159][146][214]"
  58. 6005 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214]"
  59. 6010 PRINT"[144] GAME"
  60. 6020 POKE54296,15:POKE54277,53:POKE54278,69
  61. 6021 POKE54276,33:POKE54273,3:POKE54272,244
  62. 6022 FORT=1TO900:NEXT:POKE54276,0:POKE54273,0:POKE54272,0
  63. 6025 POKE36874,150:PRINT"[144] OVER"
  64. 6026 POKE54296,15:POKE54277,53:POKE54278,69
  65. 6027 POKE54276,33:POKE54273,2:POKE54272,163
  66. 6028 FORT=1TO900:NEXT:POKE54276,0:POKE54273,0:POKE54272,0
  67. 6040 PRINT"PLAY AGAIN ?"
  68. 6050 GETP$:IFP$=""THEN6050
  69. 6060 IFP$="Y"THENSO=0:SR=3:LK=0:GOTO120
  70. 6070 IFP$<>"N"THEN6050
  71. 6080 PRINT"BYE!":END
  72. 7000 SR=SR-1:POKE53280,3:POKE53281,1
  73. 7010 PRINT"[147] WHEW! YOU HAVE JUST DIED OF EXHAUSTION!"
  74. 7020 PRINTSPC(14)"[218][156]SCORE[146]:"SO
  75. 7030 PRINTSPC(9)""SR"SNAKES REMAINING"
  76. 7040 POKE54296,10:POKE54277,31:POKE54278,17
  77. 7042 POKE54276,33:POKE54273,5:POKE54272,71
  78. 7043 FORV0=15TO5STEP-5:POKE54296,V0:FORT=1TO100:NEXT:NEXT
  79. 7045 POKE54276,0:POKE54273,0:POKE54272,0:POKE54296,0
  80. 7050 FORT=1TO2000:NEXT
  81. 7060 IFSR=0THEN6000
  82. 7070 RETURN
  83. 8000 POKE53280,4:POKE53281,1:PRINT"[147]"SPC(42)"CHOOSE YOUR SKILL:"
  84. 8005 PRINT"  [129][154][160][163]"
  85. 8010 PRINTSPC(51)"LEVEL 1=60 SECONDS"
  86. 8020 PRINTSPC(51)"LEVEL 2=45 SECONDS"
  87. 8030 PRINTSPC(51)"LEVEL 3=30 SECONDS"
  88. 8040 PRINTSPC(51)"[156]LEVEL 4=15 SECONDS"
  89. 8045 PRINT"[158]LEV[156]E[159]L ?"
  90. 8050 GETS$:IFS$=""THEN8050
  91. 8060 S=VAL(S$)
  92. 8070 IFS=1THENL$="000100":RETURN
  93. 8080 IFS=2THENL$="000045":RETURN
  94. 8090 IFS=3THENL$="000030":RETURN
  95. 8100 IFS=4THENL$="000015":RETURN
  96. 8110 GOTO8050
  97. 9000 POKE53280,4:POKE53281,8:PRINT"[147]"
  98. 9010 FORF=1TO150:D=INT(RND(1)*966)+1058
  99. 9020 POKED,88:POKED+54272,1:FORJ=1TO20:NEXTJ:POKED+54272,0:NEXTF
  100. 9030 POKE2023,160:POKE2022,160:POKE1983,160:POKE1982,160
  101. 9040 POKE56295,6:POKE56294,6:POKE56255,6:POKE56254,6
  102. 9050 POKE1943,32:POKE2021,32
  103. 9060 RETURN
  104. 9500 POKE54296,15:POKE54277,53:POKE54278,69
  105. 9505 POKE54276,33:POKE54273,5:POKE54272,71
  106. 9510 FORT=1TO900:NEXT:POKE54276,0:POKE54273,0:POKE54272,0
  107. 9515 POKE54296,15:POKE54277,53:POKE54278,69
  108. 9520 POKE54276,33:POKE54273,3:POKE54272,244
  109. 9525 FORT=1TO900:NEXT:POKE54276,0:POKE54273,0:POKE54272,0
  110. 9530 POKE54296,15:POKE54277,53:POKE54278,69
  111. 9533 POKE54276,33:POKE54273,2:POKE54272,163
  112. 9536 FORT=1TO900:NEXT:POKE54276,0:POKE54273,0:POKE54272,0
  113. 9540 SR=SR-1
  114. 9550 PRINT""SPC(18)" "SPC(37)"RIP"SPC(37)" "SPC(37)" [146]"
  115. 9560 FORT=1TO1000:NEXT
  116. 9570 POKE53280,3:POKE53281,1:PRINT"[147]"
  117. 9580 PRINTSPC(14)"TOO BAD!!"
  118. 9590 PRINT"SCORE[146]:[156]"SO"[146]"
  119. 9600 PRINTSPC(8)""SR"SNAKES REMAINING"
  120. 9610 FORT=1TO2000:NEXTT:IFSR=0THEN6000
  121. 9620 GOTO120
  122. 10000 POKEV,15:POKES3,217:POKES3,217:POKEV,0:POKES3,0:RETURN
  123. 28000 BC=81:HC=87:B=1024:S3=36876:CO=55296:LK=0:RETURN
  124. 29000 DEFFNA(L)=INT(RND(1)*L)+1064
  125. 29010 DEFFNSC(L)=INT(RND(1)*L)+5:RETURN
  126. 30000 POKE53280,3:POKE53281,1
  127. 30010 PRINT"[147]                 "
  128. 30020 PRINT"                 "
  129. 30030 PRINT"  SNAKE ESCAPE!  "
  130. 30040 PRINT"                 "
  131. 30050 PRINT"                 "
  132. 30070 PRINT"INSTRUCTION ?"
  133. 30080 GETI$:IFI$=""THEN30080
  134. 30090 IFI$="Y"THENGOSUB4000:GOTO30120
  135. 30100 IFI$="N"THEN30120
  136. 30110 GOTO30080
  137. 30120 RETURN
  138.